home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 8 / 05 / term-4.0-source.lha / DayPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-26  |  3.7 KB  |  203 lines
  1. /*
  2. **    DayPanel.c
  3. **
  4. **    Editing panel for day of week selection
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_USE=1,GAD_CANCEL,GAD_TEXT };
  13.  
  14. BYTE __regargs
  15. DayPanel(struct TimeDateNode *Node)
  16. {
  17.     struct LayoutHandle    *Handle;
  18.     struct TimeDateNode     LocalNode;
  19.     BYTE             Result = FALSE;
  20.  
  21.     LocalNode = *Node;
  22.  
  23.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  24.         LH_LocaleHook,    &LocaleHook,
  25.     TAG_DONE))
  26.     {
  27.         struct Window *Window;
  28.  
  29.         LT_New(Handle,
  30.             LA_Type,    VERTICAL_KIND,
  31.         TAG_DONE);
  32.         {
  33.             LT_New(Handle,
  34.                 LA_Type,    VERTICAL_KIND,
  35.                 LA_LabelID,    MSG_DAYPANEL_ACTIVE_DAYS_GAD,
  36.             TAG_DONE);
  37.             {
  38.                 LT_New(Handle,
  39.                     LA_Type,    VERTICAL_KIND,
  40.                 TAG_DONE);
  41.                 {
  42.                     WORD i;
  43.  
  44.                     for(i = 0 ; i < 7 ; i++)
  45.                     {
  46.                         LT_New(Handle,
  47.                             LA_Type,    CHECKBOX_KIND,
  48.                             LA_LabelID,    MSG_DAYPANEL_MONDAY_GAD + i,
  49.                             LA_ID,        GAD_TEXT + i,
  50.                             GTCB_Checked,    LocalNode . Header . Day & (1L << i),
  51.                         TAG_DONE);
  52.                     }
  53.  
  54.                     LT_EndGroup(Handle);
  55.                 }
  56.  
  57.                 LT_New(Handle,
  58.                     LA_Type,    XBAR_KIND,
  59.                 TAG_DONE);
  60.  
  61.                 LT_New(Handle,
  62.                     LA_Type,    VERTICAL_KIND,
  63.                 TAG_DONE);
  64.                 {
  65.                     LT_New(Handle,
  66.                         LA_Type,    STRING_KIND,
  67.                         LA_LabelID,    MSG_GLOBAL_COMMENT_GAD,
  68.                         LA_STRPTR,    LocalNode . Header . Comment,
  69.                         LA_Chars,    15,
  70.                         GTST_MaxChars,    19,
  71.                     TAG_DONE);
  72.  
  73.                     LT_EndGroup(Handle);
  74.                 }
  75.  
  76.                 LT_EndGroup(Handle);
  77.             }
  78.  
  79.             LT_New(Handle,
  80.                 LA_Type,VERTICAL_KIND,
  81.             TAG_DONE);
  82.             {
  83.                 LT_New(Handle,
  84.                     LA_Type,    XBAR_KIND,
  85.                     LAXB_FullSize,    TRUE,
  86.                 TAG_DONE);
  87.  
  88.                 LT_EndGroup(Handle);
  89.             }
  90.  
  91.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  92.                 LAGR_SameSize,    TRUE,
  93.                 LAGR_Spread,    TRUE,
  94.             TAG_DONE);
  95.             {
  96.                 LT_New(Handle,
  97.                     LA_Type,    BUTTON_KIND,
  98.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  99.                     LA_ID,        GAD_USE,
  100.                     LABT_ReturnKey,    TRUE,
  101.                     LABT_ExtraFat,    TRUE,
  102.                 TAG_DONE);
  103.  
  104.                 LT_New(Handle,
  105.                     LA_Type,    BUTTON_KIND,
  106.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  107.                     LA_ID,        GAD_CANCEL,
  108.                     LABT_EscKey,    TRUE,
  109.                     LABT_ExtraFat,    TRUE,
  110.                 TAG_DONE);
  111.  
  112.                 LT_EndGroup(Handle);
  113.             }
  114.  
  115.             LT_EndGroup(Handle);
  116.         }
  117.  
  118.         if(Window = LT_Layout(Handle,LocaleString(MSG_DAYPANEL_DAY_SETTINGS_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  119.             WA_DepthGadget,        TRUE,
  120.             WA_CloseGadget,        TRUE,
  121.             WA_DragBar,        TRUE,
  122.             WA_RMBTrap,        TRUE,
  123.             WA_Activate,        TRUE,
  124.             LAWN_HelpHook,        &GuideHook,
  125.         TAG_DONE))
  126.         {
  127.             struct IntuiMessage    *Message;
  128.             BOOLEAN             Done = FALSE;
  129.             ULONG             MsgClass,
  130.                          MsgQualifier;
  131.             UWORD             MsgCode;
  132.             struct Gadget        *MsgGadget;
  133.  
  134.             GuideContext(CONTEXT_DAY);
  135.  
  136.             LT_ShowWindow(Handle,TRUE);
  137.  
  138.             PushWindow(Window);
  139.  
  140.             do
  141.             {
  142.                 if(Wait(PORTMASK(Window -> UserPort) | SIG_BREAK) & SIG_BREAK)
  143.                     break;
  144.  
  145.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(Window -> UserPort))
  146.                 {
  147.                     MsgClass    = Message -> Class;
  148.                     MsgQualifier    = Message -> Qualifier;
  149.                     MsgCode        = Message -> Code;
  150.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  151.  
  152.                     GT_ReplyIMsg(Message);
  153.  
  154.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  155.  
  156.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  157.                         Done = TRUE;
  158.  
  159.                     if(MsgClass == IDCMP_GADGETUP)
  160.                     {
  161.                         switch(MsgGadget -> GadgetID)
  162.                         {
  163.                             case GAD_USE:
  164.  
  165.                                 *Node = LocalNode;
  166.  
  167.                                 Result = Done = TRUE;
  168.  
  169.                                 break;
  170.  
  171.                             case GAD_CANCEL:
  172.  
  173.                                 Done = TRUE;
  174.                                 break;
  175.  
  176.                             default:
  177.  
  178.                                 if(MsgGadget -> GadgetID >= GAD_TEXT && MsgGadget -> GadgetID < GAD_TEXT + 7)
  179.                                 {
  180.                                     LONG Index = MsgGadget -> GadgetID - GAD_TEXT;
  181.  
  182.                                     if(MsgCode)
  183.                                         LocalNode . Header . Day |= (1L << Index);
  184.                                     else
  185.                                         LocalNode . Header . Day &= ~(1L << Index);
  186.                                 }
  187.  
  188.                                 break;
  189.                         }
  190.                     }
  191.                 }
  192.             }
  193.             while(!Done);
  194.  
  195.             PopWindow();
  196.         }
  197.  
  198.         LT_DeleteHandle(Handle);
  199.     }
  200.  
  201.     return(Result);
  202. }
  203.